<%
filename = request("filename")
response.write filename
FilePath = Server.MapPath(filename)
'stream = Request.BinaryRead(Request.TotalBytes)
'response.write "hello"
'response.end
SET objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
'objStream.Mode = 3
objStream.Type = 1
'objStream.Position = 0
'objStream.LoadFromFile(FPath)
'Response.BinaryWrite objStream.Read() 
objStream.Write Request.BinaryRead(Request.TotalBytes)
'objStream.SaveToFile filename
objStream.SaveToFile FilePath,2

SET objStream = NOTHING
%>